home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / surfmodl / surfm203.arc / SURFSRC.ARC / INITIAL.INC < prev    next >
Encoding:
Text File  |  1988-01-16  |  959 b   |  46 lines
  1. procedure INITIAL;
  2. { Initialize global variables; read in the data file if specified on
  3.   the command line.
  4. }
  5.   var Infile: text;                 { name of data input file }
  6.       i:      integer;
  7.  
  8. begin
  9.   Xeye := 100.0;
  10.   Yeye := -70.0;
  11.   Zeye := 75.0;
  12.   Xfocal := 0.0;
  13.   Yfocal := 0.0;
  14.   Zfocal := 0.0;
  15.   Nlite := 1;
  16.   Xlite[1] := 100.0;
  17.   Ylite[1] := 30.0;
  18.   Zlite[1] := 0.0;
  19.   Intensity[1] := 0.7;
  20.   Magnify := 1.0;
  21.   Viewtype := 0;
  22.   Interpolate := FALSE;
  23.   Epsilon := 0.3;
  24.   Shadowing := FALSE;
  25.   XYadjust := 1.0;
  26.   Showaxes := 0;
  27.   Xaxislen := 0.2;
  28.   Yaxislen := 0.2;
  29.   Zaxislen := 0.2;
  30.   Axiscolor := 1;
  31.   Nwindow := 1;
  32.  
  33.   Inifile := ' ';
  34.   Viewchanged := TRUE;
  35.  
  36.   Fileread := FALSE;
  37.   case paramcount of
  38.     3..50: begin
  39.       writeln ('usage: SURFMODL [filename] [menu choice]');
  40.       halt;
  41.     end;
  42.     1,2: readfile (paramstr(1));
  43.     0: setsys;
  44.   end;  {case paramcount}
  45. end;  { procedure INITIAL }
  46.